SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TMDOCU_CLPR_Q01]
/*-------------------------------------------------------*/
/*---Empresa               OFISIS S.A.                --*/
/*---Cliente               				--*/
/*---Sistema               Tesoreria                  --*/
/*---M«dulo                Empresa                    --*/
/*---Programa              CONSOLIDADO CTAS x COBRAR Y --*/
/*---		   	   POR PAGAR 			--*/
/*---Script                SP_TMDOCU_CLPR_Q01.sql     --*/
/*---Nombre SP             SP_TMDOCU_CLPR_Q01         --*/
/*---Desarrollado por      REYNALDO MENACHO LUYO      --*/
/*---Fecha Creaci«n        08/02/2002                 --*/
/*---Base Datos           : Microsoft Sql Server       --*/
/*---Versi«n              : 2005                       --*/
/*---Invoca a SP                                      --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Modificado 1 por     :			 --*/
/*---Fecha Modificaci«n   :			 --*/ 
/*---Detalle Modificaci«n : 	 --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Drop Proc SP_TMDOCU_CLPR_Q01                      --*/
/*---Grant all on SP_TMDOCU_CLPR_Q01 to public         --*/ 
/*---SP_TMDOCU_CLPR_Q01 '01', 'A', NULL, "'DEP', 'BOL' , 'CHE' , 'FAC' , 'FAE' , 'LET', 'NCR , 'NDB' , 
'REH'", 'DOL', 'E' , '2001/01/01','2002/02/15', '2', 3.50, '1', 'D'   --*/
/*-------------------------------------------------------*/

@ISCO_EMPR 	TD_VC_002,
@ISTI_ENTI	TD_VC_001,
@ISNU_RUCS 	TD_VC_020,
@ISDE_CODI 	VARCHAR(500),
@ISCO_MONE 	TD_VC_003,
@ISFL_FECH	TD_VC_001,
@IDFE_INIC 	TD_DT_001,
@IDFE_FINA 	TD_DT_001,
@ISST_TICA	TD_VC_001,
@INTI_CAMB	TD_NU_009_004,
@ISDE_ORDE	TD_VC_001,
@ISTI_REPO 	TD_VC_001
 
AS	

CREATE TABLE #TWDOCU_CLPR_Q01_1 
 ( CO_EMPR      varchar(3) NULL,
   TI_ENTI 	varchar(1),  
   NU_RUCS	varchar(20) NULL,
   CO_ENTI	varchar(20) NULL,
   NO_ENTI	varchar(80) NULL,
   CO_TIPO_DOCU	varchar(3) NULL ,
   NU_DOCU_ENTI	varchar(20) NULL,
   FE_REPO	datetime NULL,
   CO_MONE_ORIG	varchar(03) NULL,
   CO_MONE	varchar(03) NULL,
   FA_TIPO_CAMB	numeric(9,4) NULL,
   IM_SALD_ORIG numeric(16,4) NULL,
   IM_SALD_CONV	numeric(16,4) NULL,
   TI_DETA	varchar(1) NULL,
   ST_RESU	varchar(1) NULL)
  
DECLARE 

@VSDE_LETR  	TD_VC_100,
@VSCO_EMPR	TD_VC_008,
@VSCO_CLIE  	TD_VC_020,
@VSCO_MONE_EXTR	TD_VC_003,
@VSTI_FECH  	VARCHAR(500),
@VSTI_FECH_0001  TD_VC_020,
@VSDE_SELE	VARCHAR(8000),
@VSNU_RUCS  	TD_VC_020,
@VSFE_INIC	TD_VC_020,
@VSFE_FINA	TD_VC_020,
@VSDE_ORDE	VARCHAR(200),

@OSTI_DOCU_LETR TD_VC_003,
@OSTI_DOCU_NCRE	TD_VC_003,
@OSTI_DOCU_OCMP	TD_VC_003,
@OSTI_DOCU_OSER	TD_VC_003,
@OSTI_DOCU_ANTC	TD_VC_003,
@OSTI_DOCU_CHEQ TD_VC_003

SELECT @VSCO_MONE_EXTR = MAX(CO_MONE_EXTR)
FROM TMPARA_TESO

EXECUTE SP_TTDOCU_CNTB_Q02 6, @OSTI_DOCU_LETR OUTPUT
EXECUTE SP_TTDOCU_CNTB_Q02 4, @OSTI_DOCU_NCRE OUTPUT
EXECUTE SP_TTDOCU_CNTB_Q02 8, @OSTI_DOCU_OCMP OUTPUT
EXECUTE SP_TTDOCU_CNTB_Q02 15, @OSTI_DOCU_OSER OUTPUT
EXECUTE SP_TTDOCU_CNTB_Q02 19, @OSTI_DOCU_ANTC OUTPUT
  /* Devuelve el Tipo Documento CHEQUE */    
  Exec SP_TTDOCU_CNTB_Q01 29, @OSTI_DOCU_CHEQ Output 

SELECT @VSFE_INIC = CONVERT(VARCHAR(10), @IDFE_INIC, 103)
SELECT @VSFE_FINA = CONVERT(VARCHAR(10), @IDFE_FINA, 103)

IF @ISDE_ORDE = '1'
     IF @ISTI_REPO = 'R'
	SELECT @VSDE_ORDE = ' ORDER BY T1.CO_EMPR, T1.NU_RUCS '
     ELSE
	SELECT @VSDE_ORDE = ' ORDER BY 1, 4, 8, 6, 7 '

IF @ISDE_ORDE = '2'
     IF @ISTI_REPO = 'R'
	SELECT @VSDE_ORDE = ' ORDER BY T1.CO_EMPR, T1.NU_RUCS '
     ELSE
	SELECT @VSDE_ORDE = ' ORDER BY 1, 4, 6, 7, 8 '

IF @ISDE_ORDE = '3'
     IF @ISTI_REPO = 'R'
	SELECT @VSDE_ORDE = ' ORDER BY T1.CO_EMPR, MAX(T1.NO_ENTI) '
     ELSE
	SELECT @VSDE_ORDE = ' ORDER BY 1, 5, 6, 7 '


-- TIPOS DE DETALLE(TI_DETA = '1' AL '7')
--1.- DOCS EMITIDOS
--2.- PAGOS BANCOS / CAJA

--3.- APLICACIONES DE NCR A DOCUMENTOS
--4.- CANJES
--5.- RENOVACIONES
--6.- APLICACION DE DOC. A ANTICIPOS
--8.- ANTICIPOS( SIN APLICACIONES, SALDO = IMPORTE DEPOSITO )
--7.- ANTICIPOS( CON APLICACION, SALDOS)

IF @ISTI_ENTI = 'A' OR @ISTI_ENTI = 'C'
BEGIN
	--1.- DOCS EMITIDOS
	INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, FE_REPO,
	CO_MONE, CO_MONE_ORIG, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	Select T1.CO_EMPR, T8.NO_AUXI, 'C',  T1.CO_TIPO_DOCU , T1.NU_DOCU_CLIE, T8.NU_RUCS, T1.CO_CLIE, T1.FE_EMIS,
	T1.CO_MONE, T1.CO_MONE, T1.FA_TIPO_CAMB,
	( PatIndex(T2.ST_SIGN,'S') - PatIndex(T2.ST_SIGN,'N')) * T1.IM_TOTA, '1'
	From  TMDOCU_CLIE T1, TTDOCU_CNTB T2, TMAUXI_EMPR T8
	Where (( @ISCO_EMPR IS NOT NULL AND T1.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
	--AND ((@ISCO_ENTI IS NOT NULL AND RTRIM(T1.CO_CLIE) = RTRIM(@ISCO_ENTI)) OR @ISCO_ENTI IS NULL)
	AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)
	AND T1.CO_EMPR = T8.CO_EMPR
	AND T1.CO_CLIE = T8.CO_AUXI_EMPR 
	AND T1.CO_TIPO_DOCU = T2.TI_DOCU
	AND PatIndex( + '%'+T1.CO_TIPO_DOCU+'%', + @ISDE_CODI )>0 
	And T1.FE_EMIS >= @IDFE_INIC
	And T1.FE_EMIS <= @IDFE_FINA
	And T1.CO_ESTA_DOCU != 'ANU'
	AND T8.TI_AUXI_EMPR = 'C'

	If PatIndex(@OSTI_DOCU_LETR, @ISDE_CODI) > 0 
  	INSERT INTO #TWDOCU_CLPR_Q01_1 
  	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, FE_REPO,
	CO_MONE, CO_MONE_ORIG, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	Select T1.CO_EMPR, T8.NO_AUXI, 'C', @OSTI_DOCU_LETR, T1.NU_LETR_CLIE, T8.NU_RUCS, T1.CO_CLIE, T1.FE_EMIS, 
	T1.CO_MONE, T1.CO_MONE, T1.FA_TIPO_CAMB, T1.IM_TOTA, '1'
	From   TMLETR_CLIE T1, TMAUXI_EMPR T8
	Where ((@ISCO_EMPR IS NOT NULL AND T1.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
--	AND ((@ISCO_ENTI IS NOT NULL AND RTRIM(T1.CO_CLIE) = RTRIM(@ISCO_ENTI)) OR @ISCO_ENTI IS NULL)
	AND T8.TI_AUXI_EMPR = 'C'
	AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)
	AND T1.CO_EMPR = T8.CO_EMPR
	AND T1.CO_CLIE = T8.CO_AUXI_EMPR 
	And T1.FE_EMIS >= @IDFE_INIC
	And T1.FE_EMIS <= @IDFE_FINA
	And T1.CO_ESTA_DOCU != 'ANU'


	--2.- PAGOS BANCOS / CAJA
	INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	Select T1.CO_EMPR, T8.NO_AUXI, 'C', T1.TI_DOCU_ENTI, T1.NU_DOCU_ENTI, T8.NU_RUCS, T1.CO_ENTI, 
	T4.CO_MONE, T2.FA_TIPO_CAMB,
	( ( PatIndex(T5.ST_SIGN,'S') - PatIndex(T5.ST_SIGN,'N') )*PatIndex(T1.TI_MOVI_BANC,'I')-
	  ( PatIndex(T5.ST_SIGN,'N') - PatIndex(T5.ST_SIGN,'S') )*PatIndex(T1.TI_MOVI_BANC,'E')) *
	( PatIndex(T1.ST_CIER_DOCU, 'N') * T1.IM_CONV_DOCU +
	PatIndex(T1.ST_CIER_DOCU, 'S') * T1.IM_SALD_DOCU ) * -1, '2'
	From  	TDMOVI_BANC T1, TCMOVI_BANC T2, TMCNTA_BANC T3, TMDOCU_CLIE T4, TTDOCU_CNTB T5, TMAUXI_EMPR T8
	Where  	((@ISCO_EMPR IS NOT NULL AND T4.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
--	AND 	((@ISCO_ENTI IS NOT NULL AND RTRIM(T4.CO_CLIE) = RTRIM(@ISCO_ENTI)) OR @ISCO_ENTI IS NULL)
	AND 	PatIndex( +'%'+T4.CO_TIPO_DOCU+'%',+ @ISDE_CODI)>0 
	AND 	T8.TI_AUXI_EMPR = 'C'
	AND 	((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)
	AND 	T1.CO_EMPR = T8.CO_EMPR
	AND 	T1.CO_ENTI = T8.CO_AUXI_EMPR 
	--And    T1.TI_MOVI_BANC = 'I' 
	And    	T1.TI_ENTI = 'C'
	And    	T2.FE_OPER  <= @IDFE_FINA
	And    	T2.TI_SITU = 'ACT' 
	And    	T4.FE_EMIS  >= @IDFE_INIC
	And    	T4.FE_EMIS  <= @IDFE_FINA
	And    	T1.CO_EMPR = T2.CO_EMPR  
	And    	T1.CO_UNID_CONC = T2.CO_UNID_CONC
	And    	T1.CO_BANC = T2.CO_BANC  
	And    	T1.NU_CNTA_BANC  = T2.NU_CNTA_BANC  
	And    	T1.AA_BNCO = T2.AA_BNCO
	And    	T1.MM_BNCO = T2.MM_BNCO 
	And    	T1.TI_MOVI_BANC  = T2.TI_MOVI_BANC 
	And    	T1.NU_COMP_BANC = T2.NU_COMP_BANC
	And    	T1.CO_EMPR = T3.CO_EMPR  
	And    	T1.CO_BANC = T3.CO_BANC  
	And    	T1.NU_CNTA_BANC  = T3.NU_CNTA_BANC
	AND	T1.CO_EMPR = T4.CO_EMPR
	AND 	T1.TI_DOCU_ENTI = T4.CO_TIPO_DOCU
	AND 	T1.NU_DOCU_ENTI = T4.NU_DOCU_CLIE
	AND 	T4.CO_TIPO_DOCU = T5.TI_DOCU



	INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	Select T1.CO_EMPR, T8.NO_AUXI, 'C', T1.TI_DOCU_ENTI, T1.NU_DOCU_ENTI, T8.NU_RUCS, T1.CO_ENTI, 
	T4.CO_MONE, T2.FA_TIPO_CAMB,
	( ( PatIndex(T5.ST_SIGN,'S') - PatIndex(T5.ST_SIGN,'N') )*PatIndex(T1.TI_MOVI,'I')-
	 ( PatIndex(T5.ST_SIGN,'S') - PatIndex(T5.ST_SIGN,'N') )*PatIndex(T1.TI_MOVI,'E')) * 
	( PatIndex(T1.ST_CIER_DOCU, 'N') * T1.IM_CONV_DOCU +
	PatIndex(T1.ST_CIER_DOCU, 'S') * T1.IM_SALD_DOCU) * -1, '2'
	From   TDMOVI_CAJA T1, TCMOVI_CAJA T2, TMCAJA T3, TMDOCU_CLIE T4, TTDOCU_CNTB T5, TMAUXI_EMPR T8
	Where  ((@ISCO_EMPR IS NOT NULL AND T4.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
--	AND ((@ISCO_ENTI IS NOT NULL AND RTRIM(T4.CO_CLIE) = RTRIM(@ISCO_ENTI)) OR @ISCO_ENTI IS NULL)
	AND 	T8.TI_AUXI_EMPR = 'C'
	AND 	((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)
	AND 	T1.CO_EMPR = T8.CO_EMPR
	AND 	T1.CO_ENTI = T8.CO_AUXI_EMPR 
	AND PatIndex(+'%'+T4.CO_TIPO_DOCU+'%',+ @ISDE_CODI)>0 
	--And    T1.TI_MOVI = 'I'
	And    T1.TI_ENTI = 'C'
--	And    T2.FE_OPER  <= @IDFE_FINA
	And    T2.TI_SITU = 'ACT'
	And    	T4.FE_EMIS  >= @IDFE_INIC
	And    	T4.FE_EMIS  <= @IDFE_FINA 
	And    T1.CO_EMPR = T2.CO_EMPR  
	And    T1.CO_CAJA = T2.CO_CAJA
	And    T1.AA_CAJA = T2.AA_CAJA
	And    T1.MM_CAJA = T2.MM_CAJA 
	And    T1.TI_MOVI = T2.TI_MOVI
	And    T1.NU_COMP_CAJA = T2.NU_COMP_CAJA
	And    T1.CO_EMPR = T3.CO_EMPR  
	And    T1.CO_CAJA = T3.CO_CAJA
	And	 T1.CO_EMPR = T4.CO_EMPR
	AND	 T1.TI_DOCU_ENTI = T4.CO_TIPO_DOCU
	And	 T1.NU_DOCU_ENTI = T4.NU_DOCU_CLIE
	AND	 T4.CO_TIPO_DOCU = T5.TI_DOCU


	-- PAGOS A CHEQUES DE LA TMDOCU_CLIE EN BANCOS, CON TDCHEQ_BANC
	INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, FE_REPO,
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	Select T1.CO_EMPR, T8.NO_AUXI, 'C', T4.CO_TIPO_DOCU, T1.NU_CHEQ, T8.NU_RUCS, T1.CO_ENTI, T4.FE_EMIS,
	T4.CO_MONE, T2.FA_TIPO_CAMB,
	( PatIndex(T5.ST_SIGN,'S') - PatIndex(T5.ST_SIGN,'N') ) * T1.IM_CHEQ  * -1, '2'
	From  TDCHEQ_BANC T1, TCMOVI_BANC T2, TMCNTA_BANC T3, TMDOCU_CLIE T4, TTDOCU_CNTB T5, TMAUXI_EMPR T8
	Where  ((@ISCO_EMPR IS NOT NULL AND T4.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
--	AND ((@ISCO_ENTI IS NOT NULL AND RTRIM(T4.CO_CLIE) = RTRIM(@ISCO_ENTI)) OR @ISCO_ENTI IS NULL)
	AND T8.TI_AUXI_EMPR = 'C'
	AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)
	AND T1.CO_EMPR = T8.CO_EMPR
	AND T1.CO_ENTI = T8.CO_AUXI_EMPR 
	AND PatIndex( '%'+T4.CO_TIPO_DOCU+'%', @ISDE_CODI)>0 
	--And    T1.TI_MOVI_BANC = 'I' 
	And T1.TI_ENTI = 'C'
--	And T2.FE_OPER  <= @IDFE_FINA
	And T2.TI_SITU = 'ACT' 
	And T4.FE_EMIS  >= @IDFE_INIC
	And T4.FE_EMIS  <= @IDFE_FINA
	And T1.CO_EMPR = T2.CO_EMPR  
	And T1.CO_BANC = T2.CO_BANC  
	And T1.NU_CNTA_BANC  = T2.NU_CNTA_BANC  
	And T1.AA_BNCO = T2.AA_BNCO
	And T1.MM_BNCO = T2.MM_BNCO 
	And T1.TI_MOVI_BANC  = T2.TI_MOVI_BANC 
	And T1.NU_COMP_BANC = T2.NU_COMP_BANC
	And T1.CO_EMPR = T3.CO_EMPR  
	And T1.CO_BANC = T3.CO_BANC  
	And T1.NU_CNTA_BANC  = T3.NU_CNTA_BANC
	AND T1.CO_EMPR = T4.CO_EMPR
	AND T4.CO_TIPO_DOCU = @OSTI_DOCU_CHEQ
	AND T1.NU_CHEQ = T4.NU_DOCU_CLIE
	AND T4.CO_TIPO_DOCU = T5.TI_DOCU


	-- PAGOS LETRAS 
	If PatIndex(@OSTI_DOCU_LETR, @ISDE_CODI) > 0 
	BEGIN
		INSERT INTO #TWDOCU_CLPR_Q01_1 
		(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
		CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
		Select T1.CO_EMPR, T8.NO_AUXI, 'C', T1.TI_DOCU_ENTI, T1.NU_DOCU_ENTI, T8.NU_RUCS, T1.CO_ENTI, 
		T4.CO_MONE, T2.FA_TIPO_CAMB,
		(PatIndex(T1.TI_MOVI_BANC,'I') - PatIndex(T1.TI_MOVI_BANC,'E'))*(
		PatIndex(T1.ST_CIER_DOCU, 'N') * T1.IM_CONV_DOCU +
		PatIndex(T1.ST_CIER_DOCU, 'S') * T1.IM_SALD_DOCU) * -1, '2'
		From  TDMOVI_BANC T1, TCMOVI_BANC T2, TMCNTA_BANC T3, TMLETR_CLIE T4, TMAUXI_EMPR T8
		Where  ((@ISCO_EMPR IS NOT NULL AND T4.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
--		AND ((@ISCO_ENTI IS NOT NULL AND RTRIM(T4.CO_CLIE) = RTRIM(@ISCO_ENTI)) OR @ISCO_ENTI IS NULL)
		AND T8.TI_AUXI_EMPR = 'C'
		AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)
		AND T1.CO_EMPR = T8.CO_EMPR
		AND T1.CO_ENTI = T8.CO_AUXI_EMPR 
		--And    T1.TI_MOVI_BANC = 'I' 
		And    T1.TI_ENTI = 'C'
		And    T2.FE_OPER  <= @IDFE_FINA
		And    T2.TI_SITU = 'ACT' 
		And    	T4.FE_EMIS  >= @IDFE_INIC
		And    	T4.FE_EMIS  <= @IDFE_FINA	
		And    T1.CO_EMPR = T2.CO_EMPR  
		And    T1.CO_UNID_CONC = T2.CO_UNID_CONC
		And    T1.CO_BANC = T2.CO_BANC  
		And    T1.NU_CNTA_BANC  = T2.NU_CNTA_BANC  
		And    T1.AA_BNCO = T2.AA_BNCO
		And    T1.MM_BNCO = T2.MM_BNCO 
		And    T1.TI_MOVI_BANC  = T2.TI_MOVI_BANC 
		And    T1.NU_COMP_BANC = T2.NU_COMP_BANC
		And    T1.CO_EMPR = T3.CO_EMPR  
		And    T1.CO_BANC = T3.CO_BANC  
		And    T1.NU_CNTA_BANC  = T3.NU_CNTA_BANC
		AND	 T1.CO_EMPR = T4.CO_EMPR
		AND	 T1.TI_DOCU_ENTI = @OSTI_DOCU_LETR
		AND 	 T1.NU_DOCU_ENTI = T4.NU_LETR_CLIE
	
	
		INSERT INTO #TWDOCU_CLPR_Q01_1 
		(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
		CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
		Select T1.CO_EMPR, T8.NO_AUXI, 'C', T1.TI_DOCU_ENTI, T1.NU_DOCU_ENTI, T8.NU_RUCS, T1.CO_ENTI, 
		T4.CO_MONE, T2.FA_TIPO_CAMB,
		(PatIndex(T1.TI_MOVI,'I') - PatIndex(T1.TI_MOVI,'E'))*(
		PatIndex(T1.ST_CIER_DOCU, 'N') * T1.IM_CONV_DOCU +
		PatIndex(T1.ST_CIER_DOCU, 'S') * T1.IM_SALD_DOCU) * -1, '2'
		From   TDMOVI_CAJA T1, TCMOVI_CAJA T2, TMCAJA T3, TMLETR_CLIE T4, TMAUXI_EMPR T8
		Where  ((@ISCO_EMPR IS NOT NULL AND T4.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
--		AND ((@ISCO_ENTI IS NOT NULL AND RTRIM(T4.CO_CLIE) = RTRIM(@ISCO_ENTI)) OR @ISCO_ENTI IS NULL)
		AND T8.TI_AUXI_EMPR = 'C'
		AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)
		AND T1.CO_EMPR = T8.CO_EMPR
		AND T1.CO_ENTI = T8.CO_AUXI_EMPR 
		-- And    T1.TI_MOVI = 'I'
		And    T1.TI_ENTI = 'C'
--		And    T2.FE_OPER  <= @IDFE_FINA
		And    T2.TI_SITU = 'ACT' 
		And    	T4.FE_EMIS  >= @IDFE_INIC
		And    	T4.FE_EMIS  <= @IDFE_FINA
		And    T1.CO_EMPR = T2.CO_EMPR  
		And    T1.CO_CAJA = T2.CO_CAJA
		And    T1.AA_CAJA = T2.AA_CAJA
		And    T1.MM_CAJA = T2.MM_CAJA 
		And    T1.TI_MOVI = T2.TI_MOVI
		And    T1.NU_COMP_CAJA = T2.NU_COMP_CAJA

		And    T1.CO_EMPR = T3.CO_EMPR  
		And    T1.CO_CAJA = T3.CO_CAJA

		And	 T1.CO_EMPR = T4.CO_EMPR
		AND	 T1.TI_DOCU_ENTI = @OSTI_DOCU_LETR
		And	 T1.NU_DOCU_ENTI = T4.NU_LETR_CLIE
	
	END


	--3.- APLICACIONES DE NOTA DE CREDITOS A DOCUMENTOS

	-- DOCUMENTOS
	INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	SELECT T1.CO_EMPR, T8.NO_AUXI, 'C', T4.CO_TIPO_DOCU, T4.NU_DOCU_CLIE, T8.NU_RUCS, T1.CO_CLIE, 
	T4.CO_MONE, T1.FA_TIPO_CAMB,
	(PatIndex(T5.ST_SIGN,'S') - PatIndex(T5.ST_SIGN,'N')) *
	( PatIndex(T2.ST_CIER_DOCU, 'N') * T2.IM_COBR_CDES +
	  PatIndex(T2.ST_CIER_DOCU, 'S') * T2.IM_SALD_CDES) * -1, '3'
	From   TCAMAR_NCCL T1 , TDAMAR_NCCL T2, TMDOCU_CLIE T4, TTDOCU_CNTB T5, TMAUXI_EMPR T8
	Where ((@ISCO_EMPR IS NOT NULL AND T4.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
--	AND ((@ISCO_ENTI IS NOT NULL AND RTRIM(T4.CO_CLIE) = RTRIM(@ISCO_ENTI)) OR @ISCO_ENTI IS NULL)
	AND T8.TI_AUXI_EMPR = 'C'
	AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)
	AND T1.CO_EMPR = T8.CO_EMPR
	AND T1.CO_CLIE = T8.CO_AUXI_EMPR 
	AND PatIndex(+'%'+T4.CO_TIPO_DOCU+'%',+ @ISDE_CODI) > 0 
	AND	 T1.CO_EMPR =   T4.CO_EMPR
	AND	 T4.CO_TIPO_DOCU != @OSTI_DOCU_NCRE
	And    T1.FE_AMAR  <= @IDFE_FINA
	AND    T1.TI_SITU = 'ACT'
	And    	T4.FE_EMIS  >= @IDFE_INIC
	And    	T4.FE_EMIS  <= @IDFE_FINA
	AND    T2.CO_TIDO_DEST = T4.CO_TIPO_DOCU 

	AND    T2.NU_DOCU_DEST = T4.NU_DOCU_CLIE 
	AND    T1.CO_EMPR = T2.CO_EMPR  
	AND    T1.NU_AMAR = T2.NU_AMAR
	AND    T2.CO_EMPR = T4.CO_EMPR
	AND    T1.CO_CLIE = T4.CO_CLIE
	AND    T2.CO_TIDO_DEST = T4.CO_TIPO_DOCU
	AND    T2.NU_DOCU_DEST = T4.NU_DOCU_CLIE
	AND	 T4.CO_ESTA_DOCU != 'ANU' 
	And    T4.NU_REND_GAST IS NULL
	AND	 T4.CO_TIPO_DOCU = T5.TI_DOCU
	
	-- NOTAS DE CREDITO APLICADAS 
	INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	SELECT T1.CO_EMPR, T8.NO_AUXI, 'C', T4.CO_TIPO_DOCU, T4.NU_DOCU_CLIE, T8.NU_RUCS, T1.CO_CLIE, 
	T4.CO_MONE, T1.FA_TIPO_CAMB,
	(PatIndex(T5.ST_SIGN,'S') - PatIndex(T5.ST_SIGN,'N')) *
	( PatIndex(T2.ST_CIER_DOCU, 'N') * T2.IM_COBR_CORI +
	  PatIndex(T2.ST_CIER_DOCU, 'S') * T2.IM_SALD_CORI) * -1, '3'
	From   TCAMAR_NCCL T1 , TDAMAR_NCCL T2, TMDOCU_CLIE T4, TTDOCU_CNTB T5, TMAUXI_EMPR T8
	Where  ((@ISCO_EMPR IS NOT NULL AND T4.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
--	AND ((@ISCO_ENTI IS NOT NULL AND RTRIM(T4.CO_CLIE) = RTRIM(@ISCO_ENTI)) OR @ISCO_ENTI IS NULL)
	AND T8.TI_AUXI_EMPR = 'C'
	AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)
	AND T1.CO_EMPR = T8.CO_EMPR
	AND T1.CO_CLIE = T8.CO_AUXI_EMPR 
	AND PatIndex(+'%'+T4.CO_TIPO_DOCU+'%',+ @ISDE_CODI) > 0 
	AND	 T1.CO_EMPR = T4.CO_EMPR
	AND	 T4.CO_TIPO_DOCU = @OSTI_DOCU_NCRE
	And    T1.FE_AMAR <= @IDFE_FINA
	AND    T1.TI_SITU = 'ACT'
	And    	T4.FE_EMIS  >= @IDFE_INIC
	And    	T4.FE_EMIS  <= @IDFE_FINA
	AND    T2.CO_TIDO_ORIG = T4.CO_TIPO_DOCU 
	AND    T2.NU_DOCU_ORIG = T4.NU_DOCU_CLIE 
	AND    T1.CO_EMPR = T2.CO_EMPR  
	AND    T1.NU_AMAR = T2.NU_AMAR
	AND    T2.CO_EMPR = T4.CO_EMPR
	AND    T1.CO_CLIE = T4.CO_CLIE
	AND    T2.CO_TIDO_ORIG = T4.CO_TIPO_DOCU
	AND    T2.NU_DOCU_ORIG = T4.NU_DOCU_CLIE
	  
	AND	 T4.CO_ESTA_DOCU != 'ANU' 
	And    T4.NU_REND_GAST IS NULL
	AND 	 T4.CO_TIPO_DOCU = T5.TI_DOCU 
	
	
	--4.- CANJES

	-- SOLO MUESTRO LOS DOCUMENTOS QUE SE CANJEAN, NO LAS LETRAS GENERADAS
	INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	SELECT T1.CO_EMPR, T8.NO_AUXI, 'C', T4.CO_TIPO_DOCU, T4.NU_DOCU_CLIE, T8.NU_RUCS, T1.CO_CLIE, 
	T4.CO_MONE, T1.FA_TIPO_CAMB, T2.IM_CANJ_MDOC * -1, '4'
	From  TCCANJ_CLIE T1 , TDCANJ_CLIE T2 /*(INDEX = IX_TDCANJ_CLIE_01)*/, 
	      TMDOCU_CLIE T4 /*(INDEX = IX_TMDOCU_CLIE_01)*/, TTDOCU_CNTB T5, TMAUXI_EMPR T8
	Where  ((@ISCO_EMPR IS NOT NULL AND T4.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
--	AND ((@ISCO_ENTI IS NOT NULL AND RTRIM(T4.CO_CLIE) = RTRIM(@ISCO_ENTI)) OR @ISCO_ENTI IS NULL)
	AND T8.TI_AUXI_EMPR = 'C'
	AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)
	AND T1.CO_EMPR = T8.CO_EMPR
	AND T1.CO_CLIE = T8.CO_AUXI_EMPR 
	AND PatIndex(+'%'+T4.CO_TIPO_DOCU+'%',+ @ISDE_CODI) > 0 
	And	T1.CO_EMPR =   T4.CO_EMPR
	And    T1.FE_CANJ  <= @IDFE_FINA
	AND    T1.TI_SITU != 'ANU'
	And    	T4.FE_EMIS  >= @IDFE_INIC
	And    	T4.FE_EMIS  <= @IDFE_FINA
	AND    T1.CO_EMPR = T2.CO_EMPR  
	AND    T1.CO_CLIE = T2.CO_CLIE
	AND    T1.NU_CANJ = T2.NU_CANJ
	AND    T2.CO_EMPR = T4.CO_EMPR
	AND    T2.CO_CLIE = T4.CO_CLIE
	AND    T2.CO_TIPO_DOCU = T4.CO_TIPO_DOCU 
	AND    T2.NU_DOCU_CLIE = T4.NU_DOCU_CLIE 
	AND    T4.CO_ESTA_DOCU != 'ANU' 
	And    T4.NU_REND_GAST IS NULL
	AND    T4.CO_TIPO_DOCU = T5.TI_DOCU  
	
	
	If PatIndex(@OSTI_DOCU_LETR, @ISDE_CODI) > 0 
	  INSERT INTO #TWDOCU_CLPR_Q01_1 
	  (CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, FE_REPO, 
	  CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	  SELECT T1.CO_EMPR, T8.NO_AUXI, 'C', @OSTI_DOCU_LETR, T4.NU_LETR_CLIE, T8.NU_RUCS, T1.CO_CLIE, T1.FE_CANJ, 
	  T4.CO_MONE, T1.FA_TIPO_CAMB, T2.IM_CANJ_MDOC * -1, '4'
	  From  TCCANJ_CLIE T1 , TDCANJ_CLIE T2 /*(INDEX = IX_TDCANJ_CLIE_01)*/, 
	        TMLETR_CLIE T4, TTDOCU_CNTB T5, TMAUXI_EMPR T8
	  Where  ((@ISCO_EMPR IS NOT NULL AND T4.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
--	  AND ((@ISCO_ENTI IS NOT NULL AND RTRIM(T4.CO_CLIE) = RTRIM(@ISCO_ENTI)) OR @ISCO_ENTI IS NULL)
	  AND T8.TI_AUXI_EMPR = 'C'
	  AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)
	  AND T1.CO_EMPR = T8.CO_EMPR
	  AND T1.CO_CLIE = T8.CO_AUXI_EMPR 
	  And    T1.CO_EMPR =   T4.CO_EMPR
	  And    T1.FE_CANJ  <= @IDFE_FINA
	  AND    T1.TI_SITU != 'ANU'
	  And  	T4.FE_EMIS  >= @IDFE_INIC
	  And  	T4.FE_EMIS  <= @IDFE_FINA
	  AND    T1.CO_EMPR = T2.CO_EMPR  
	  AND    T1.CO_CLIE = T2.CO_CLIE
	  AND    T1.NU_CANJ = T2.NU_CANJ
	  AND    T2.CO_EMPR = T4.CO_EMPR
	  AND    T2.CO_CLIE = T4.CO_CLIE
	  AND    T2.CO_TIPO_DOCU = @OSTI_DOCU_LETR
	  AND    T2.CO_TIPO_DOCU = T5.TI_DOCU  
	  AND    T2.NU_DOCU_CLIE = T4.NU_LETR_CLIE 
	  AND    T4.CO_ESTA_DOCU != 'ANU' 
	
	
	--5.- RENOVACIONES

	-- SOLO MUESTRO LOS DOCUMENTOS QUE SE RENUEVAN, NO LAS LETRAS GENERADAS
	INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	SELECT T1.CO_EMPR, T8.NO_AUXI, 'C', T4.CO_TIPO_DOCU, T4.NU_DOCU_CLIE, T8.NU_RUCS, T1.CO_CLIE, 
	T4.CO_MONE, T1.FA_TIPO_CAMB,
	( PatIndex(T5.ST_SIGN,'S') - PatIndex(T5.ST_SIGN,'N') ) * T2.IM_RENO_MDOC * -1, '5'
	From   TCRENO_CLIE T1 , TDRENO_CLIE T2, TMDOCU_CLIE T4, TTDOCU_CNTB T5, TMAUXI_EMPR T8
	Where  ((@ISCO_EMPR IS NOT NULL AND T4.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
--	AND ((@ISCO_ENTI IS NOT NULL AND RTRIM(T4.CO_CLIE) = RTRIM(@ISCO_ENTI)) OR @ISCO_ENTI IS NULL)
	AND T8.TI_AUXI_EMPR = 'C'
	AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)
	AND T1.CO_EMPR = T8.CO_EMPR
	AND T1.CO_CLIE = T8.CO_AUXI_EMPR 	
	AND PatIndex(+'%'+T4.CO_TIPO_DOCU+'%',+ @ISDE_CODI) > 0 
	AND	 T1.CO_EMPR =   T4.CO_EMPR
	And    T1.FE_RENO  <= @IDFE_FINA
	AND    T1.TI_SITU != 'ANU'
	And    	T4.FE_EMIS  >= @IDFE_INIC
	And    	T4.FE_EMIS  <= @IDFE_FINA
	AND    T1.CO_EMPR = T2.CO_EMPR  
	AND    T1.CO_CLIE = T2.CO_CLIE
	AND    T1.NU_RENO = T2.NU_RENO
	AND    T2.CO_CLIE = T4.CO_CLIE
	AND    T2.CO_TIPO_DOCU = T4.CO_TIPO_DOCU 
	AND    T2.NU_DOCU_CLIE = T4.NU_DOCU_CLIE 
	AND    T4.FE_EMIS <= @IDFE_FINA 
	AND	T4.CO_ESTA_DOCU != 'ANU' 
	And  	T4.NU_REND_GAST IS NULL
	AND	T4.CO_TIPO_DOCU = T5.TI_DOCU

	If PatIndex(@OSTI_DOCU_LETR, @ISDE_CODI) > 0 
	INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	SELECT T1.CO_EMPR, T8.NO_AUXI, 'C', @OSTI_DOCU_LETR, T4.NU_LETR_CLIE, T8.NU_RUCS, T1.CO_CLIE, 
	T4.CO_MONE, T1.FA_TIPO_CAMB, T2.IM_RENO_MDOC * -1, '5'
	From   TCRENO_CLIE T1 , TDRENO_CLIE T2, TMLETR_CLIE T4, TMAUXI_EMPR T8
	Where  ((@ISCO_EMPR IS NOT NULL AND T4.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
--	AND ((@ISCO_ENTI IS NOT NULL AND RTRIM(T4.CO_CLIE) = RTRIM(@ISCO_ENTI)) OR @ISCO_ENTI IS NULL)
	AND T8.TI_AUXI_EMPR = 'C'
	AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)
	AND T1.CO_EMPR = T8.CO_EMPR
	AND T1.CO_CLIE = T8.CO_AUXI_EMPR 	
	AND	 T1.CO_EMPR =   T4.CO_EMPR
	And    T1.FE_RENO  <= @IDFE_FINA
	And    	T4.FE_EMIS  >= @IDFE_INIC
	And    	T4.FE_EMIS  <= @IDFE_FINA
	AND    T1.TI_SITU != 'ANU'
	AND    T1.CO_EMPR = T2.CO_EMPR  
	AND    T1.CO_CLIE = T2.CO_CLIE
	AND    T1.NU_RENO = T2.NU_RENO
	AND    T2.CO_CLIE = T4.CO_CLIE
	AND    T2.CO_TIPO_DOCU = @OSTI_DOCU_LETR
	AND    T2.NU_DOCU_CLIE = T4.NU_LETR_CLIE 
	AND	T4.CO_ESTA_DOCU != 'ANU'
	

	--6.- APLICACION DE DOCUMENTOS A ANTICIPOS

	-- SOLO MUESTRO LOS DOCUMENTOS QUE SE APLICAN
	INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)

	SELECT T1.CO_EMPR, T8.NO_AUXI, 'C', T4.CO_TIPO_DOCU, T4.NU_DOCU_CLIE, T8.NU_RUCS, T4.CO_CLIE, 
	T4.CO_MONE, T1.FA_TIPO_CAMB,
	(PatIndex(T2.ST_CIER_DOCU, 'N') * 
	(PatIndex(T5.ST_SIGN,'S') - PatIndex(T5.ST_SIGN,'N')) * T2.IM_CONV_DOCU) +
	(PatIndex(T2.ST_CIER_DOCU, 'S')*
	(PatIndex(T5.ST_SIGN,'S') - PatIndex(T5.ST_SIGN,'N') )* T2.IM_SALD_DOCU) * -1, '6'
	From   TCAMAR_ANTC T1 , TDAMAR_ANTC T2, TMDOCU_CLIE T4, TTDOCU_CNTB T5, TMAUXI_EMPR T8
	Where  ((@ISCO_EMPR IS NOT NULL AND T4.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
--	AND ((@ISCO_ENTI IS NOT NULL AND RTRIM(T4.CO_CLIE) = RTRIM(@ISCO_ENTI)) OR @ISCO_ENTI IS NULL)
	AND T8.TI_AUXI_EMPR = 'C'
	AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)
	AND T4.CO_EMPR = T8.CO_EMPR
	AND T4.CO_CLIE = T8.CO_AUXI_EMPR 	
	AND PatIndex(+'%'+T4.CO_TIPO_DOCU+'%',+ @ISDE_CODI) > 0 
	And    T2.FE_AMAR_DETA  <= @IDFE_FINA
	And    	T4.FE_EMIS  >= @IDFE_INIC
	And    	T4.FE_EMIS  <= @IDFE_FINA 
	AND    T1.TI_SITU != 'ANU'
	AND    T1.CO_EMPR = T2.CO_EMPR  
	AND    T1.NU_AMAR = T2.NU_AMAR
	AND	 T2.CO_EMPR =   T4.CO_EMPR
	AND    T2.TI_ENTI = 'C'
	AND    T2.TI_DOCU_ENTI = T4.CO_TIPO_DOCU 
	AND    T2.NU_DOCU_ENTI = T4.NU_DOCU_CLIE 
	AND	 T4.CO_ESTA_DOCU != 'ANU' 
	And    T4.NU_REND_GAST IS NULL
	AND	 T4.CO_TIPO_DOCU = T5.TI_DOCU

	If PatIndex(@OSTI_DOCU_LETR, @ISDE_CODI) > 0 
	INSERT INTO #TWDOCU_CLPR_Q01_1 
  	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	SELECT T1.CO_EMPR, T8.NO_AUXI, 'C', @OSTI_DOCU_LETR, T4.NU_LETR_CLIE, T8.NU_RUCS, T4.CO_CLIE, 
	T4.CO_MONE, T1.FA_TIPO_CAMB,
	(PatIndex(T2.ST_CIER_DOCU, 'N') * T2.IM_CONV_DOCU +
	PatIndex(T2.ST_CIER_DOCU, 'S') * T2.IM_SALD_DOCU) * -1, '6'
	From   TCAMAR_ANTC T1 , TDAMAR_ANTC T2, TMLETR_CLIE T4, TMAUXI_EMPR T8
	Where  ((@ISCO_EMPR IS NOT NULL AND T4.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
--	AND ((@ISCO_ENTI IS NOT NULL AND RTRIM(T4.CO_CLIE) = RTRIM(@ISCO_ENTI)) OR @ISCO_ENTI IS NULL)
	AND T8.TI_AUXI_EMPR = 'C'
	AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)
	AND T4.CO_EMPR = T8.CO_EMPR
	AND T4.CO_CLIE = T8.CO_AUXI_EMPR 	
	And    T2.FE_AMAR_DETA <= @IDFE_FINA
	And    	T4.FE_EMIS  >= @IDFE_INIC
	And    	T4.FE_EMIS  <= @IDFE_FINA
	AND    T1.TI_SITU != 'ANU'
	AND    T1.CO_EMPR = T2.CO_EMPR  
	AND    T1.NU_AMAR = T2.NU_AMAR
	AND    T2.CO_EMPR =   T4.CO_EMPR
	AND    T2.TI_ENTI = 'C'
	AND    T2.CO_ENTI = T4.CO_CLIE
	AND    T2.TI_DOCU_ENTI = @OSTI_DOCU_LETR
	AND    T2.NU_DOCU_ENTI = T4.NU_LETR_CLIE 
	AND    T4.FE_EMIS <= @IDFE_FINA
	AND    T4.CO_ESTA_DOCU != 'ANU'


	--7.- ANTICIPOS - PAGOS BANCOS 
	-- PAGO DE ANTICIPOS
	INSERT INTO #TWDOCU_CLPR_Q01_1 
  	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, FE_REPO,
	CO_MONE, CO_MONE_ORIG, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	Select T2.CO_EMPR, T8.NO_AUXI, 'C', T2.CO_TIPO_DOCU, T2.NU_DOCU_BANC, T8.NU_RUCS, T2.CO_ENTI, T2.FE_OPER, 
	T3.CO_MONE, T3.CO_MONE, T2.FA_TIPO_CAMB, T2.IM_MOVI * -1, '7'
	From  TCMOVI_BANC T2, TMCNTA_BANC T3,  TTTIPO_OPER T5, TMAUXI_EMPR T8
	Where  ((@ISCO_EMPR IS NOT NULL AND T2.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
--	AND ((@ISCO_ENTI IS NOT NULL AND RTRIM(T2.CO_ENTI) = RTRIM(@ISCO_ENTI)) OR @ISCO_ENTI IS NULL)
	AND T8.TI_AUXI_EMPR = 'C'
	AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)
	AND T2.CO_EMPR = T8.CO_EMPR
	AND T2.CO_ENTI = T8.CO_AUXI_EMPR 
	AND PatIndex(+'%'+T2.CO_TIPO_DOCU+'%',+ @ISDE_CODI)>0
	And    T2.TI_MOVI_BANC = 'I' 
	And    T2.TI_ENTI = 'C'
	And    T2.FE_OPER  >= @IDFE_INIC
	And    T2.FE_OPER  <= @IDFE_FINA
	And    T2.TI_SITU = 'ACT' 
	And    T2.CO_EMPR = T3.CO_EMPR  
	And    T2.CO_BANC = T3.CO_BANC  
	And    T2.NU_CNTA_BANC  = T3.NU_CNTA_BANC
	AND    T2.CO_EMPR = T5.CO_EMPR
	AND    T2.CO_TIPO_OPER = T5.CO_TIPO_OPER
	AND    T5.ST_AUXI_0002 = 'S'

	--8.- ANTICIPOS - PAGOS BANCOS 
	-- APLICACION DE ANTICIPOS
	INSERT INTO #TWDOCU_CLPR_Q01_1 
  	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	Select T2.CO_EMPR, MAX(T8.NO_AUXI), 'C', T2.CO_TIPO_DOCU, T2.NU_DOCU_BANC, MAX(T8.NU_RUCS), T2.CO_ENTI, 
	T3.CO_MONE, MAX(T2.FA_TIPO_CAMB), ISNULL( SUM( T7.IM_DETA_NEGA ), 0), '8'
	From  TCMOVI_BANC T2, TMCNTA_BANC T3, TTTIPO_OPER T5, TCAMAR_ANTC T6
    LEFT OUTER JOIN TDAMAR_ANTC T7
    ON  T6.CO_EMPR = T7.CO_EMPR 
	AND T6.NU_AMAR = T7.NU_AMAR , TMAUXI_EMPR T8
	Where  ((@ISCO_EMPR IS NOT NULL AND T2.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
--	AND ((@ISCO_ENTI IS NOT NULL AND RTRIM(T2.CO_ENTI) = RTRIM(@ISCO_ENTI)) OR @ISCO_ENTI IS NULL)
	AND PatIndex('%'+T2.CO_TIPO_DOCU+'%', @ISDE_CODI) > 0   
	AND T8.TI_AUXI_EMPR = 'C'
	AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)
	AND T2.CO_EMPR = T8.CO_EMPR
	AND T2.CO_ENTI = T8.CO_AUXI_EMPR 	
--	AND PatIndex('%ANT%', @ISDE_CODI) > 0 
	And T2.FE_OPER  >= @IDFE_INIC
	And T2.FE_OPER  <= @IDFE_FINA 
	And T2.TI_MOVI_BANC = 'I' 
	And T2.TI_ENTI = 'C'
	--And    T6.FE_OPER <= @IDFE_FINA 
	--And    T7.FE_AMAR_DETA  <= @IDFE_FINA
	And T2.TI_SITU = 'ACT' 
	And T2.CO_EMPR = T3.CO_EMPR  
	And T2.CO_BANC = T3.CO_BANC  
	And T2.NU_CNTA_BANC  = T3.NU_CNTA_BANC
	AND T2.CO_EMPR = T5.CO_EMPR
	AND T2.CO_TIPO_OPER = T5.CO_TIPO_OPER
	AND T5.ST_AUXI_0002 = 'S'
	AND T6.TI_SITU = 'ACT'
	AND T2.CO_EMPR = T6.CO_EMPR
	And T2.CO_BANC = T6.CO_BANC  
	And T2.NU_CNTA_BANC  = T6.NU_CNTA_BANC
	And T2.AA_BNCO = T6.AA_BNCO
	And T2.MM_BNCO = T6.MM_BNCO
	And T2.NU_COMP_BANC = T6.NU_COMP_BANC
	
	GROUP BY T2.CO_EMPR, T2.CO_TIPO_DOCU, T2.NU_DOCU_BANC, T2.CO_ENTI, T3.CO_MONE, 
	   	 T2.CO_BANC, T2.NU_CNTA_BANC, T2.NU_COMP_BANC , T7.FE_AMAR_DETA

	/** ANTICIPOS CAJA **/ 
	/** PAGOS DE ANTICIPOS **/

	INSERT INTO #TWDOCU_CLPR_Q01_1 
  	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, FE_REPO, 
	CO_MONE, CO_MONE_ORIG, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	Select T2.CO_EMPR, T8.NO_AUXI, 'C', @OSTI_DOCU_ANTC, T2.CO_CAJA+' ' +T2.NU_COMP_CAJA, T8.NU_RUCS,
	T2.CO_ENTI, T2.FE_OPER, T3.CO_MONE, T3.CO_MONE, T2.FA_TIPO_CAMB, T2.IM_MOVI * -1, '7'
	From  TCMOVI_CAJA T2, TMCAJA T3,  TTTIPO_OPER T5, TMAUXI_EMPR T8
	Where  ((@ISCO_EMPR IS NOT NULL AND T2.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
--	AND ((@ISCO_ENTI IS NOT NULL AND RTRIM(T2.CO_ENTI) = RTRIM(@ISCO_ENTI)) OR @ISCO_ENTI IS NULL)
	AND T8.TI_AUXI_EMPR = 'C'
	AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)
	AND T2.CO_EMPR = T8.CO_EMPR
	AND T2.CO_ENTI = T8.CO_AUXI_EMPR 	
--	AND  PatIndex('%'+T2.CO_TIPO_DOCU+'%', @ISDE_CODI) > 0   
	And    T2.FE_OPER  >= @IDFE_INIC
	And    T2.FE_OPER  <= @IDFE_FINA
	And 	T2.TI_MOVI = 'I' 
	And    T2.TI_ENTI = 'C'
	And    T2.TI_SITU = 'ACT' 
	And    T2.CO_EMPR = T3.CO_EMPR  
	And    T2.CO_CAJA = T3.CO_CAJA
	AND	 T2.CO_EMPR = T5.CO_EMPR
	AND 	 T2.CO_TIPO_OPER = T5.CO_TIPO_OPER
	AND    T5.ST_AUXI_0002 = 'S'
	

	/** ANTICIPOS CAJA **/ 
	/** APLICACION DE ANTICIPOS **/	

	INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	Select T2.CO_EMPR, MAX(T8.NO_AUXI), 'C', @OSTI_DOCU_ANTC, T2.CO_CAJA+' '+ T2.NU_COMP_CAJA, MAX(T8.NU_RUCS), 
	T2.CO_ENTI, T3.CO_MONE, MAX(T2.FA_TIPO_CAMB),
	ISNULL( SUM( T7.IM_DETA_NEGA ), 0), '8'
	From  TCMOVI_CAJA T2, TMCAJA T3, TTTIPO_OPER T5, TCAMAR_ANTC T6, TDAMAR_ANTC T7, TMAUXI_EMPR T8
	Where  ((@ISCO_EMPR IS NOT NULL AND T2.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
--	AND ((@ISCO_ENTI IS NOT NULL AND RTRIM(T2.CO_ENTI) = RTRIM(@ISCO_ENTI)) OR @ISCO_ENTI IS NULL)
	AND T8.TI_AUXI_EMPR = 'C'
	AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)
	AND T2.CO_EMPR = T8.CO_EMPR
	AND T2.CO_ENTI = T8.CO_AUXI_EMPR 	
--	AND PatIndex ('%'+T2.CO_TIPO_DOCU+'%', @ISDE_CODI) > 0  
	And    T2.FE_OPER  >= @IDFE_INIC
	And    T2.FE_OPER  <= @IDFE_FINA
	And    T2.TI_MOVI = 'I' 
	And    T2.TI_ENTI = 'C'
--	And    T6.FE_OPER <= @IDFE_FINA 
--	And    T7.FE_AMAR_DETA <= @IDFE_FINA
	And    T2.TI_SITU = 'ACT' 
	
	And    T2.CO_EMPR = T3.CO_EMPR  
	And    T2.CO_CAJA = T3.CO_CAJA
	
	--AND	 T2.CO_EMPR = T4.CO_EMPR
	--AND 	 T2.CO_ENTI = T4.CO_CLIE 
	
	AND    T2.CO_EMPR = T5.CO_EMPR
	AND    T2.CO_TIPO_OPER = T5.CO_TIPO_OPER
	AND    T5.ST_AUXI_0002 = 'S'
	
	AND    T6.TI_SITU = 'ACT'
	AND    T2.CO_EMPR = T6.CO_EMPR 
	And    T2.CO_CAJA = T6.CO_CAJA	
	And    T2.AA_CAJA = T6.AA_CAJA
	And    T2.MM_CAJA = T6.MM_CAJA
	And    T2.NU_COMP_CAJA = T6.NU_COMP_CAJA
	
	--AND	 T6.CO_EMPR *= T7.CO_EMPR 
	--AND 	 T6.NU_AMAR *= T7.NU_AMAR
	GROUP BY T2.CO_EMPR, T2.CO_TIPO_DOCU, T2.NU_DOCU, T2.CO_ENTI, T3.CO_MONE, 
	   T2.CO_CAJA, T2.NU_COMP_CAJA, T7.FE_AMAR_DETA

END

IF @ISTI_ENTI = 'A' OR @ISTI_ENTI = 'P'
BEGIN

  IF @ISFL_FECH = 'E' 
    BEGIN
	SELECT @VSTI_FECH = ' AND T4.FE_EMIS >= CONVERT(DATETIME, "' + @VSFE_INIC + '" ,103)
			      AND T4.FE_EMIS <= CONVERT(DATETIME, "' + @VSFE_FINA + '" ,103) '
	SELECT @VSTI_FECH_0001 = ' T4.FE_EMIS '
    END
  ELSE
    BEGIN
	SELECT @VSTI_FECH = ' AND T4.FE_REGI_COMP >= CONVERT(DATETIME, "' + @VSFE_INIC + '" ,103)    
			      AND T4.FE_REGI_COMP <= CONVERT(DATETIME, "' + @VSFE_FINA + '" ,103) '
	SELECT @VSTI_FECH_0001 = ' T4.FE_REGI_COMP '
    END

  IF @ISNU_RUCS IS NULL
	SELECT @VSNU_RUCS = 'NULL'
  ELSE
	SELECT @VSNU_RUCS = '"'+@ISNU_RUCS+'"'

  IF @ISCO_EMPR IS NULL
	SELECT @VSCO_EMPR = 'NULL'
  ELSE
	SELECT @VSCO_EMPR = '"'+@ISCO_EMPR+'"'


-- TIPOS DE DETALLE(TI_DETA = '1' AL '8')
--1.- DOCS EMITIDOS EN ESOS MESES					
--2.- PAGOS BANCOS / CAJA
--3.- APLICACIONES DE NCR A DOCUMENTOS
--4.- APLICACIONES DE OCM A DOCUMENTOS
--5.- CANJES
--6.- RENOVACIONES
--7.- DEVOLUCION DE ANTICIPOS
--8.- RENDICION DE GASTOS


	--1.- DOCS EMITIDOS EN ESOS MESES
	-- TMDOCU_PROV
	EXECUTE('INSERT INTO #TWDOCU_CLPR_Q01_1 
		(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, FE_REPO, 
		CO_MONE, CO_MONE_ORIG, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	 	Select T4.CO_EMPR, T8.NO_AUXI, "P", T4.CO_TIPO_DOCU , T4.NU_DOCU_PROV , T8.NU_RUCS, T4.CO_PROV, ' + 
@VSTI_FECH_0001 + ' ,
	  	T4.CO_MONE, T4.CO_MONE, T4.FA_TIPO_CAMB, T4.IM_TOTA, "1"
  		From  TMDOCU_PROV T4, TTDOCU_CNTB T2, TMAUXI_EMPR T8
  		Where (( '+@VSCO_EMPR+' IS NOT NULL AND T4.CO_EMPR = '+@VSCO_EMPR+') OR '+@VSCO_EMPR+' IS NULL)
		AND (( '+@VSNU_RUCS+' IS NOT NULL AND T8.NU_RUCS = '+@VSNU_RUCS+') OR '+@VSNU_RUCS+' IS NULL)
		AND T8.TI_AUXI_EMPR = "P" ' +
		@VSTI_FECH + '
		AND T4.CO_EMPR = T8.CO_EMPR
		AND T4.CO_PROV = T8.CO_AUXI_EMPR 	
  		AND PatIndex( "%"+T4.CO_TIPO_DOCU+"%", "'+@ISDE_CODI+'" )>0 
  		And T4.CO_ESTA_DOCU != "ANU"
  		And T4.CO_TIPO_DOCU != "'+@OSTI_DOCU_OCMP+'"
  		And T4.CO_TIPO_DOCU != "'+@OSTI_DOCU_OSER+'"
  		And T4.CO_TIPO_DOCU != "'+@OSTI_DOCU_ANTC+'"
  		AND T4.CO_TIPO_DOCU = T2.TI_DOCU ')

		If PatIndex(@OSTI_DOCU_LETR, @ISDE_CODI) > 0 
		  INSERT INTO #TWDOCU_CLPR_Q01_1 
		  (CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, FE_REPO, 
		  CO_MONE, CO_MONE_ORIG, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
		  Select T1.CO_EMPR, T8.NO_AUXI, 'P', @OSTI_DOCU_LETR, T1.NU_LETR_PROV, T8.NU_RUCS, T1.CO_PROV, T1.FE_EMIS,
		  T1.CO_MONE, T1.CO_MONE, T1.FA_TIPO_CAMB, T1.IM_TOTA, '1'
		  From   TMLETR_PROV T1, TMAUXI_EMPR T8
		  Where ((@ISCO_EMPR IS NOT NULL AND T1.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
		  AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)		
  
		  AND T8.TI_AUXI_EMPR = 'P'
		  AND T1.CO_EMPR = T8.CO_EMPR
	 	  AND T1.CO_PROV = T8.CO_AUXI_EMPR 	
		  And T1.FE_EMIS >= @IDFE_INIC
		  And T1.FE_EMIS <= @IDFE_FINA
		  And T1.CO_ESTA_DOCU != 'ANU'





	--2.- PAGOS BANCOS / CAJA
	EXECUTE('INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, FE_REPO,
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	Select T1.CO_EMPR, T8.NO_AUXI, "P", T1.TI_DOCU_ENTI, T1.NU_DOCU_ENTI, T8.NU_RUCS, T1.CO_ENTI, T2.FE_OPER,
	T4.CO_MONE, T2.FA_TIPO_CAMB,
	( ( PatIndex(T5.ST_SIGN,"S") - PatIndex(T5.ST_SIGN, "N") )*PatIndex(T1.TI_MOVI_BANC,"E")-
  	( PatIndex(T5.ST_SIGN, "N") - PatIndex(T5.ST_SIGN,"S") )*PatIndex(T1.TI_MOVI_BANC,"I")
	)*(
	PatIndex(T1.ST_CIER_DOCU, "N") * T1.IM_CONV_DOCU +
	PatIndex(T1.ST_CIER_DOCU, "S") * T1.IM_SALD_DOCU ) * -1, "2"
	From  TDMOVI_BANC T1, TCMOVI_BANC T2, TMCNTA_BANC T3, TMDOCU_PROV T4, TTDOCU_CNTB T5, TMAUXI_EMPR T8
	Where (( '+@VSCO_EMPR+' IS NOT NULL AND T4.CO_EMPR = '+@VSCO_EMPR+') OR '+@VSCO_EMPR+' IS NULL)
	AND (( '+@VSNU_RUCS+' IS NOT NULL AND T8.NU_RUCS = '+@VSNU_RUCS+') OR '+@VSNU_RUCS+' IS NULL)
	AND T8.TI_AUXI_EMPR = "P" ' +
	@VSTI_FECH + '
	AND T4.CO_EMPR = T8.CO_EMPR
	AND T4.CO_PROV = T8.CO_AUXI_EMPR 	
	AND PatIndex( "%"+T4.CO_TIPO_DOCU+"%", "'+@ISDE_CODI+'" )>0 
	And T4.CO_ESTA_DOCU != "ANU"
	And T1.TI_ENTI = "P"
	And T2.TI_SITU = "ACT" 
	And T1.CO_EMPR = T2.CO_EMPR  
	And T1.CO_UNID_CONC = T2.CO_UNID_CONC
	And T1.CO_BANC = T2.CO_BANC  
	And T1.NU_CNTA_BANC  = T2.NU_CNTA_BANC  
	And T1.AA_BNCO = T2.AA_BNCO
	And T1.MM_BNCO = T2.MM_BNCO 
	And T1.TI_MOVI_BANC  = T2.TI_MOVI_BANC 
	And T1.NU_COMP_BANC = T2.NU_COMP_BANC
	And T1.CO_EMPR = T3.CO_EMPR  
	And T1.CO_BANC = T3.CO_BANC  
	And T1.NU_CNTA_BANC  = T3.NU_CNTA_BANC
	AND T1.CO_EMPR = T4.CO_EMPR
	AND T1.CO_ENTI = T4.CO_PROV
	AND T1.TI_DOCU_ENTI = T4.CO_TIPO_DOCU
	AND T1.NU_DOCU_ENTI = T4.NU_DOCU_PROV
	AND T4.CO_TIPO_DOCU = T5.TI_DOCU')

	
	EXECUTE('INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	Select T1.CO_EMPR, T8.NO_AUXI, "P", T1.TI_DOCU_ENTI, T1.NU_DOCU_ENTI, T8.NU_RUCS, T1.CO_ENTI, 
	T4.CO_MONE, T2.FA_TIPO_CAMB,
	( ( PatIndex(T5.ST_SIGN,"S") - PatIndex(T5.ST_SIGN, "N") )*PatIndex(T1.TI_MOVI,"E")-
  	( PatIndex(T5.ST_SIGN, "N") - PatIndex(T5.ST_SIGN,"S") )*PatIndex(T1.TI_MOVI,"I")
	)*(
	PatIndex(T1.ST_CIER_DOCU, "N") * T1.IM_CONV_DOCU +
	PatIndex(T1.ST_CIER_DOCU, "S") * T1.IM_SALD_DOCU ) * -1, "2"
	From   TDMOVI_CAJA T1, TCMOVI_CAJA T2, TMCAJA T3, TMDOCU_PROV T4, TTDOCU_CNTB T5, TMAUXI_EMPR T8
	Where (( '+@VSCO_EMPR+' IS NOT NULL AND T4.CO_EMPR = '+@VSCO_EMPR+') OR '+@VSCO_EMPR+' IS NULL)
	AND (( '+@VSNU_RUCS+' IS NOT NULL AND T8.NU_RUCS = '+@VSNU_RUCS+') OR '+@VSNU_RUCS+' IS NULL)
	AND T8.TI_AUXI_EMPR = "P" ' +
	@VSTI_FECH + '
	AND T4.CO_EMPR = T8.CO_EMPR
	AND T4.CO_PROV = T8.CO_AUXI_EMPR 	
	AND PatIndex( "%"+T4.CO_TIPO_DOCU+"%", "'+@ISDE_CODI+'" )>0 
	And T4.CO_ESTA_DOCU != "ANU"
	And    T1.TI_ENTI = "P"
	And    T2.TI_SITU = "ACT" 
	And    T1.CO_EMPR = T2.CO_EMPR  
	And    T1.CO_CAJA = T2.CO_CAJA
	And    T1.AA_CAJA = T2.AA_CAJA
	And    T1.MM_CAJA = T2.MM_CAJA 
	And    T1.TI_MOVI = T2.TI_MOVI
	And    T1.NU_COMP_CAJA = T2.NU_COMP_CAJA
	And    T1.CO_EMPR = T3.CO_EMPR  
	And    T1.CO_CAJA = T3.CO_CAJA
	And	 T1.CO_EMPR = T4.CO_EMPR
	AND	 T1.CO_ENTI = T4.CO_PROV
	AND	 T1.TI_DOCU_ENTI = T4.CO_TIPO_DOCU
	And	 T1.NU_DOCU_ENTI = T4.NU_DOCU_PROV
	AND 	 T4.CO_TIPO_DOCU = T5.TI_DOCU')


	-- PAGOS LETRAS 
	If PatIndex(@OSTI_DOCU_LETR, @ISDE_CODI) > 0 
	BEGIN
	INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	Select T1.CO_EMPR, T8.NO_AUXI, 'P', T1.TI_DOCU_ENTI, T1.NU_DOCU_ENTI, T8.NU_RUCS, T1.CO_ENTI, 
	T4.CO_MONE, T2.FA_TIPO_CAMB,
	(PatIndex(T1.TI_MOVI_BANC,'E') - PatIndex(T1.TI_MOVI_BANC,'I'))*(
	PatIndex(T1.ST_CIER_DOCU, 'N') * T1.IM_CONV_DOCU +
	PatIndex(T1.ST_CIER_DOCU, 'S') * T1.IM_SALD_DOCU) * -1, '2'
	From  TDMOVI_BANC T1, TCMOVI_BANC T2, TMCNTA_BANC T3, TMLETR_PROV T4, TMAUXI_EMPR T8
	Where  ((@ISCO_EMPR IS NOT NULL AND T4.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
	AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)		  
	AND T8.TI_AUXI_EMPR = 'P'
	AND T4.CO_EMPR = T8.CO_EMPR
	AND T4.CO_PROV = T8.CO_AUXI_EMPR 	
	And T1.TI_ENTI = 'P'
	And T4.FE_EMIS >= @IDFE_INIC
	And T4.FE_EMIS <= @IDFE_FINA
	And T2.TI_SITU = 'ACT' 
	And T1.CO_EMPR = T2.CO_EMPR  
	And T1.CO_UNID_CONC = T2.CO_UNID_CONC
	And T1.CO_BANC = T2.CO_BANC  
	And T1.NU_CNTA_BANC  = T2.NU_CNTA_BANC  
	And T1.AA_BNCO = T2.AA_BNCO
	And T1.MM_BNCO = T2.MM_BNCO 
	And T1.TI_MOVI_BANC  = T2.TI_MOVI_BANC 
	And T1.NU_COMP_BANC = T2.NU_COMP_BANC
	And T1.CO_EMPR = T3.CO_EMPR  
	And T1.CO_BANC = T3.CO_BANC  
	And T1.NU_CNTA_BANC  = T3.NU_CNTA_BANC
	AND T1.CO_EMPR = T4.CO_EMPR
	AND T1.CO_ENTI = T4.CO_PROV
	AND T1.TI_DOCU_ENTI = 'LET'
	AND T1.NU_DOCU_ENTI = T4.NU_LETR_PROV


	INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	Select T1.CO_EMPR, T8.NO_AUXI, 'P', T1.TI_DOCU_ENTI, T1.NU_DOCU_ENTI, T8.NU_RUCS, T1.CO_ENTI, 
	T4.CO_MONE, T2.FA_TIPO_CAMB,
	(PatIndex(T1.TI_MOVI,'E') - PatIndex(T1.TI_MOVI,'I'))*(
	PatIndex(T1.ST_CIER_DOCU, 'N') * T1.IM_CONV_DOCU +
	PatIndex(T1.ST_CIER_DOCU, 'S') * T1.IM_SALD_DOCU) * -1, '2'
	From   TDMOVI_CAJA T1, TCMOVI_CAJA T2, TMCAJA T3, TMLETR_PROV T4, TMAUXI_EMPR T8
	Where  ((@ISCO_EMPR IS NOT NULL AND T4.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
	AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)		  
	AND T8.TI_AUXI_EMPR = 'P'
	AND T4.CO_EMPR = T8.CO_EMPR
	AND T4.CO_PROV = T8.CO_AUXI_EMPR 	
	And T4.FE_EMIS >= @IDFE_INIC
	And T4.FE_EMIS <= @IDFE_FINA
	And T1.TI_ENTI = 'P'
	And T2.TI_SITU = 'ACT' 
	And T1.CO_EMPR = T2.CO_EMPR  
	And T1.CO_CAJA = T2.CO_CAJA
	And T1.AA_CAJA = T2.AA_CAJA
	And T1.MM_CAJA = T2.MM_CAJA 
	And T1.TI_MOVI = T2.TI_MOVI
	And T1.NU_COMP_CAJA = T2.NU_COMP_CAJA
	And T1.CO_EMPR = T3.CO_EMPR  
	And T1.CO_CAJA = T3.CO_CAJA
	And T1.CO_EMPR = T4.CO_EMPR
	AND T1.TI_DOCU_ENTI = 'LET'
	And T1.NU_DOCU_ENTI = T4.NU_LETR_PROV

	END


	--3.- APLICACIONES NCR A DOCUMENTOS
	-- DOCUMENTOS
	EXECUTE('INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	SELECT T1.CO_EMPR, T8.NO_AUXI, "P", T4.CO_TIPO_DOCU, T4.NU_DOCU_PROV, T8.NU_RUCS, T1.CO_PROV, 
	T4.CO_MONE, T1.FA_TIPO_CAMB, 
	(PatIndex(T5.ST_SIGN,"S") - PatIndex(T5.ST_SIGN,"N") ) * 
	(PatIndex(T2.ST_CIER_DOCU, "N") * T2.IM_PAGO_CORI +
	PatIndex(T2.ST_CIER_DOCU, "S") * T2.IM_SALD_ORIG) * -1, "3"
	From   TCAMAR_NCPR T1 , TDAMAR_NCPR T2, TMDOCU_PROV T4, TTDOCU_CNTB T5, TMAUXI_EMPR T8
	Where (( '+@VSCO_EMPR+' IS NOT NULL AND T4.CO_EMPR = '+@VSCO_EMPR+') OR '+@VSCO_EMPR+' IS NULL)
	AND (( '+@VSNU_RUCS+' IS NOT NULL AND T8.NU_RUCS = '+@VSNU_RUCS+') OR '+@VSNU_RUCS+' IS NULL)
	AND T8.TI_AUXI_EMPR = "P" ' +
	@VSTI_FECH + '
	AND T4.CO_EMPR = T8.CO_EMPR
	AND T4.CO_PROV = T8.CO_AUXI_EMPR 	
	AND PatIndex( "%"+T4.CO_TIPO_DOCU+"%", "'+@ISDE_CODI+'" )>0 
	And T4.CO_ESTA_DOCU != "ANU"
	AND T4.CO_TIPO_DOCU != "' + @OSTI_DOCU_NCRE+ '"
	AND T1.TI_SITU = "ACT" 
	AND T1.CO_EMPR = T2.CO_EMPR  
	AND T1.NU_AMAR = T2.NU_AMAR
	AND T1.CO_PROV = T4.CO_PROV
	AND T2.CO_EMPR = T4.CO_EMPR
	AND T2.CO_TIDO_DEST = T4.CO_TIPO_DOCU
	AND T2.NU_DOCU_DEST = T4.NU_DOCU_PROV
	AND (NU_REND_GAST IS NULL OR NU_REND_GAST = "")
	AND T4.CO_TIPO_DOCU = T5.TI_DOCU')


	-- NOTAS DE CREDITO APLICADAS 
	EXECUTE('INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	SELECT T1.CO_EMPR, T8.NO_AUXI, "P", T4.CO_TIPO_DOCU, T4.NU_DOCU_PROV, T8.NU_RUCS, T1.CO_PROV, 
	T4.CO_MONE, T1.FA_TIPO_CAMB, 
	(PatIndex(T5.ST_SIGN,"S") - PatIndex(T5.ST_SIGN,"N") ) * 
	(PatIndex(T2.ST_CIER_DOCU, "N") * T2.IM_PAGO_CDES +
	PatIndex(T2.ST_CIER_DOCU, "S") * T2.IM_SALD_CDES) * -1, "3"
	From   TCAMAR_NCPR T1 , TDAMAR_NCPR T2, TMDOCU_PROV T4, TTDOCU_CNTB T5, TMAUXI_EMPR T8
	Where (( '+@VSCO_EMPR+' IS NOT NULL AND T4.CO_EMPR = '+@VSCO_EMPR+') OR '+@VSCO_EMPR+' IS NULL)
	AND (( '+@VSNU_RUCS+' IS NOT NULL AND T8.NU_RUCS = '+@VSNU_RUCS+') OR '+@VSNU_RUCS+' IS NULL)
	AND T8.TI_AUXI_EMPR = "P" ' +
	@VSTI_FECH + '
	AND T4.CO_EMPR = T8.CO_EMPR
	AND T4.CO_PROV = T8.CO_AUXI_EMPR 	
	AND PatIndex( "%"+T4.CO_TIPO_DOCU+"%", "'+@ISDE_CODI+'" )>0 
	And T4.CO_ESTA_DOCU != "ANU"
	AND T1.CO_EMPR = T4.CO_EMPR
	AND T4.CO_TIPO_DOCU = "' + @OSTI_DOCU_NCRE + '"
	AND T1.TI_SITU = "ACT"
	AND T2.CO_TIDO_ORIG = T4.CO_TIPO_DOCU 
	AND T2.NU_DOCU_ORIG = T4.NU_DOCU_PROV 
	AND T1.CO_EMPR = T2.CO_EMPR  
	AND T1.NU_AMAR = T2.NU_AMAR
	AND T2.CO_EMPR = T4.CO_EMPR
	AND T1.CO_PROV = T4.CO_PROV
	AND T2.CO_TIDO_ORIG = T4.CO_TIPO_DOCU
	AND T2.NU_DOCU_ORIG = T4.NU_DOCU_PROV
	AND T4.CO_TIPO_DOCU = T5.TI_DOCU ')


	--4.- APLICACIONES OCM Y OSR A DOCUMENTOS
	-- DOCUMENTOS
	EXECUTE('INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	SELECT T1.CO_EMPR, T8.NO_AUXI, "P", T4.CO_TIPO_DOCU, T4.NU_DOCU_PROV, T8.NU_RUCS,T2.CO_ENTI, 
	T4.CO_MONE, T1.FA_TIPO_CAMB, 
	(PatIndex(T5.ST_SIGN,"S") - PatIndex(T5.ST_SIGN,"N") ) * 
	(PatIndex(T2.ST_CIER_DOCU, "N") * T2.IM_PAGO_DEST +
	PatIndex(T2.ST_CIER_DOCU, "S") * T2.IM_SALD_DEST) * -1, "4"
	From   TCAMAR_OCPR T1 , TDAMAR_OCPR T2, TMDOCU_PROV T4, TTDOCU_CNTB T5, TMAUXI_EMPR T8
	Where (( '+@VSCO_EMPR+' IS NOT NULL AND T4.CO_EMPR = '+@VSCO_EMPR+') OR '+@VSCO_EMPR+' IS NULL)
	AND (( '+@VSNU_RUCS+' IS NOT NULL AND T8.NU_RUCS = '+@VSNU_RUCS+') OR '+@VSNU_RUCS+' IS NULL)
	AND T8.TI_AUXI_EMPR = "P" ' +
	@VSTI_FECH + '
	AND T4.CO_EMPR = T8.CO_EMPR
	AND T4.CO_PROV = T8.CO_AUXI_EMPR 	
	AND PatIndex( "%"+T4.CO_TIPO_DOCU+"%", "'+@ISDE_CODI+'" )>0 
	And T4.CO_ESTA_DOCU != "ANU"
	AND T4.CO_TIPO_DOCU != "' + @OSTI_DOCU_OCMP + '" 
	AND T4.CO_TIPO_DOCU != "' + @OSTI_DOCU_OSER + '" 
	And T4.CO_TIPO_DOCU != "' + @OSTI_DOCU_ANTC + '" 
	AND T1.TI_SITU = "ACT"
	AND T1.CO_EMPR = T2.CO_EMPR  
	AND T1.NU_AMAR = T2.NU_AMAR
	AND T2.CO_ENTI = T4.CO_PROV
	AND T2.CO_EMPR = T4.CO_EMPR
	AND T2.CO_TIDO_DEST = T4.CO_TIPO_DOCU
	AND T2.NU_DOCU_DEST = T4.NU_DOCU_PROV
	AND (NU_REND_GAST IS NULL OR NU_REND_GAST = "")
	AND T4.CO_TIPO_DOCU = T5.TI_DOCU')

	-- ORDENES DE COMPRAS APLICADAS 
	EXECUTE('INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	SELECT T1.CO_EMPR, T8.NO_AUXI, "P", T4.CO_TIPO_DOCU, T4.NU_DOCU_PROV, T8.NU_RUCS,T2.CO_ENTI, 
	T4.CO_MONE, T1.FA_TIPO_CAMB, 
	(PatIndex(T5.ST_SIGN,"S") - PatIndex(T5.ST_SIGN,"N") ) * 
	(PatIndex(T2.ST_CIER_DOCU, "N") * T2.IM_PAGO_ORIG +
	PatIndex(T2.ST_CIER_DOCU, "S") * T2.IM_SALD_ORIG), "4"
	From   TCAMAR_OCPR T1 , TDAMAR_OCPR T2, TMDOCU_PROV T4, TTDOCU_CNTB T5, TMAUXI_EMPR T8
	Where (( '+@VSCO_EMPR+' IS NOT NULL AND T4.CO_EMPR = '+@VSCO_EMPR+') OR '+@VSCO_EMPR+' IS NULL)
	AND (( '+@VSNU_RUCS+' IS NOT NULL AND T8.NU_RUCS = '+@VSNU_RUCS+') OR '+@VSNU_RUCS+' IS NULL)
	AND T8.TI_AUXI_EMPR = "P" ' +
	@VSTI_FECH + '
	AND T4.CO_EMPR = T8.CO_EMPR
	AND T4.CO_PROV = T8.CO_AUXI_EMPR 	
	AND PatIndex( "%"+T4.CO_TIPO_DOCU+"%", "'+@ISDE_CODI+'" )>0 
	And T4.CO_ESTA_DOCU != "ANU"
	AND T1.CO_EMPR = T4.CO_EMPR
	AND (T4.CO_TIPO_DOCU = "' + @OSTI_DOCU_OCMP + '" 
	OR  T4.CO_TIPO_DOCU = "' + @OSTI_DOCU_OSER + '" 
	OR  T4.CO_TIPO_DOCU = "' + @OSTI_DOCU_ANTC + '" )
	AND T1.TI_SITU = "ACT"
	AND T2.CO_TIDO_ORIG = T4.CO_TIPO_DOCU 
	AND T2.NU_DOCU_ORIG = T4.NU_DOCU_PROV 
	AND T1.CO_EMPR = T2.CO_EMPR  
	AND T1.NU_AMAR = T2.NU_AMAR
	AND T2.CO_EMPR = T4.CO_EMPR
	AND T1.CO_PROV = T4.CO_PROV
	AND T2.CO_TIDO_ORIG = T4.CO_TIPO_DOCU
	AND T2.NU_DOCU_ORIG = T4.NU_DOCU_PROV
	AND T4.CO_TIPO_DOCU = T5.TI_DOCU ')


	--5.- CANJES
	-- DOCUMENTOS QUE SE CANJEAN, NO LAS LETRAS GENERADAS
	EXECUTE('INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, FE_REPO, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	SELECT T1.CO_EMPR, T8.NO_AUXI, "P", T4.CO_TIPO_DOCU, T4.NU_DOCU_PROV, T8.NU_RUCS, T1.CO_PROV, T1.FE_CANJ, 
	T4.CO_MONE, T1.FA_TIPO_CAMB,
	( PatIndex(T5.ST_SIGN,"S") - PatIndex(T5.ST_SIGN,"N") ) * T2.IM_CANJ_MDOC * -1, "5"
	From  TCCANJ_PROV T1 , TDCANJ_PROV T2, TMDOCU_PROV T4, TTDOCU_CNTB T5, TMAUXI_EMPR T8
	Where (( '+@VSCO_EMPR+' IS NOT NULL AND T4.CO_EMPR = '+@VSCO_EMPR+') OR '+@VSCO_EMPR+' IS NULL)
	AND (( '+@VSNU_RUCS+' IS NOT NULL AND T8.NU_RUCS = '+@VSNU_RUCS+') OR '+@VSNU_RUCS+' IS NULL)
	AND T8.TI_AUXI_EMPR = "P" ' +
	@VSTI_FECH + '
	AND T4.CO_EMPR = T8.CO_EMPR
	AND T4.CO_PROV = T8.CO_AUXI_EMPR 	
	AND PatIndex( "%"+T4.CO_TIPO_DOCU+"%", "'+@ISDE_CODI+'" )>0 
	And T4.CO_ESTA_DOCU != "ANU"
	And T1.CO_EMPR =   T4.CO_EMPR
	AND T1.TI_SITU != "ANU"
	AND T1.CO_EMPR = T2.CO_EMPR  
	AND T1.CO_PROV = T2.CO_PROV
	AND T1.NU_CANJ = T2.NU_CANJ
	AND T2.CO_PROV = T4.CO_PROV
	AND T2.CO_TIPO_DOCU = T4.CO_TIPO_DOCU 
	AND T2.NU_DOCU_PROV = T4.NU_DOCU_PROV 
	AND (NU_REND_GAST IS NULL OR NU_REND_GAST = "")
	AND T4.CO_ESTA_DOCU != "ANU" 
	AND T4.CO_TIPO_DOCU = T5.TI_DOCU  ')

	--6.- RENOVACIONES
	-- DOCUMENTOS QUE SE RENUEVAN, NO LAS LETRAS GENERADAS
	EXECUTE('INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	SELECT T1.CO_EMPR, T8.NO_AUXI, "P", T4.CO_TIPO_DOCU, T4.NU_DOCU_PROV, T8.NU_RUCS, T1.CO_PROV, 
	T4.CO_MONE, T1.FA_TIPO_CAMB,
	( PatIndex(T5.ST_SIGN,"S") - PatIndex(T5.ST_SIGN,"N") ) * T2.IM_RENO_MDOC * -1, "6"
	From   TCRENO_PROV T1 , TDRENO_PROV T2, TMDOCU_PROV T4, TTDOCU_CNTB T5, TMAUXI_EMPR T8
	Where (( '+@VSCO_EMPR+' IS NOT NULL AND T4.CO_EMPR = '+@VSCO_EMPR+') OR '+@VSCO_EMPR+' IS NULL)
	AND (( '+@VSNU_RUCS+' IS NOT NULL AND T8.NU_RUCS = '+@VSNU_RUCS+') OR '+@VSNU_RUCS+' IS NULL)
	AND T8.TI_AUXI_EMPR = "P" ' +
	@VSTI_FECH + '
	AND T4.CO_EMPR = T8.CO_EMPR
	AND T4.CO_PROV = T8.CO_AUXI_EMPR 	
	AND PatIndex( "%"+T4.CO_TIPO_DOCU+"%", "'+@ISDE_CODI+'" )>0 
	And T4.CO_ESTA_DOCU != "ANU"
	AND T1.CO_EMPR =   T4.CO_EMPR
	AND T1.TI_SITU != "ANU"
	AND T1.CO_EMPR = T2.CO_EMPR  
	AND T1.CO_PROV = T2.CO_PROV
	AND T1.NU_RENO = T2.NU_RENO
	AND T2.CO_PROV = T4.CO_PROV
	AND T2.CO_TIPO_DOCU = T4.CO_TIPO_DOCU 
	AND T2.NU_DOCU_PROV = T4.NU_DOCU_PROV 
	And T4.NU_REND_GAST IS NULL
	AND T4.CO_TIPO_DOCU = T5.TI_DOCU ')

	If PatIndex(@OSTI_DOCU_LETR, @ISDE_CODI) > 0 
	INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	SELECT T1.CO_EMPR, T8.NO_AUXI, 'P', @OSTI_DOCU_LETR, T4.NU_LETR_PROV, T8.NU_RUCS, T1.CO_PROV, 
	T4.CO_MONE, T1.FA_TIPO_CAMB, T2.IM_RENO_MDOC  * -1, '6'
	From   TCRENO_PROV T1 , TDRENO_PROV T2, TMLETR_PROV T4, TMAUXI_EMPR T8
	Where  ((@ISCO_EMPR IS NOT NULL AND T4.CO_EMPR = @ISCO_EMPR) OR @ISCO_EMPR IS NULL)
	AND ((@ISNU_RUCS IS NOT NULL AND RTRIM(T8.NU_RUCS) = RTRIM(@ISNU_RUCS)) OR @ISNU_RUCS IS NULL)		  
	AND T8.TI_AUXI_EMPR = 'P'
	AND T4.CO_EMPR = T8.CO_EMPR
	AND T4.CO_PROV = T8.CO_AUXI_EMPR 	
	AND T1.CO_EMPR =   T4.CO_EMPR
	AND T4.FE_EMIS >= @IDFE_INIC
	AND T4.FE_EMIS <= @IDFE_FINA
	AND T1.TI_SITU != 'ANU'
	AND T1.CO_EMPR = T2.CO_EMPR  
	AND T1.CO_PROV = T2.CO_PROV
	AND T1.NU_RENO = T2.NU_RENO
	AND T2.CO_PROV = T4.CO_PROV
	AND T2.CO_TIPO_DOCU = @OSTI_DOCU_LETR
	AND T2.NU_DOCU_PROV = T4.NU_LETR_PROV 
	AND T4.CO_ESTA_DOCU != 'ANU'

	--7.- DEVOLUCION DE ANTICIPOS
	EXECUTE('INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	Select T1.CO_EMPR, T8.NO_AUXI, "P", T1.CO_TIPO_DOCU, T1.NU_DOCU_PROV, T8.NU_RUCS, T4.CO_PROV, 
	T4.CO_MONE, T2.FA_TIPO_CAMB, T1.IM_DEVO * -1, "7"
	From  TDDEVO_ANTC T1, TCMOVI_BANC T2, TMCNTA_BANC T3, TMDOCU_PROV T4, TTDOCU_CNTB T5, TMAUXI_EMPR T8
	Where (( '+@VSCO_EMPR+' IS NOT NULL AND T4.CO_EMPR = '+@VSCO_EMPR+') OR '+@VSCO_EMPR+' IS NULL)
	AND (( '+@VSNU_RUCS+' IS NOT NULL AND T8.NU_RUCS = '+@VSNU_RUCS+') OR '+@VSNU_RUCS+' IS NULL)
	AND T8.TI_AUXI_EMPR = "P" ' +
	@VSTI_FECH + '
	AND T4.CO_EMPR = T8.CO_EMPR
	AND T4.CO_PROV = T8.CO_AUXI_EMPR 	
	AND PatIndex( "%"+T4.CO_TIPO_DOCU+"%", "'+@ISDE_CODI+'" )>0 
	AND T4.CO_ESTA_DOCU != "ANU"
	And T2.TI_SITU = "ACT" 
	And T1.CO_EMPR = T2.CO_EMPR  
	And T1.CO_BANC = T2.CO_BANC  
	And T1.NU_CNTA_BANC  = T2.NU_CNTA_BANC  
	And T1.AA_BNCO = T2.AA_BNCO
	And T1.MM_BNCO = T2.MM_BNCO 
	And T1.TI_MOVI_BANC  = T2.TI_MOVI_BANC 
	And T1.NU_COMP_BANC = T2.NU_COMP_BANC
	And T1.CO_EMPR = T3.CO_EMPR  
	And T1.CO_BANC = T3.CO_BANC  
	And T1.NU_CNTA_BANC  = T3.NU_CNTA_BANC
	AND T1.CO_EMPR = T4.CO_EMPR
	AND T2.CO_ENTI = T4.CO_PROV
	AND T1.CO_TIPO_DOCU = T4.CO_TIPO_DOCU
	AND T1.NU_DOCU_PROV = T4.NU_DOCU_PROV
	AND T4.CO_TIPO_DOCU = T5.TI_DOCU ')
	
	
--8.- RENDICION DE GASTOS

	EXECUTE('INSERT INTO #TWDOCU_CLPR_Q01_1 
	(CO_EMPR, NO_ENTI, TI_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, NU_RUCS, CO_ENTI, 
	CO_MONE, FA_TIPO_CAMB, IM_SALD_ORIG, TI_DETA)
	SELECT T1.CO_EMPR, T8.NO_AUXI, "P", T4.CO_TIPO_DOCU, T4.NU_DOCU_PROV, T8.NU_RUCS, T2.CO_ENTI, 
	T2.CO_MONE, T2.FA_CAMB_DOCU, T2.IM_DOCU  * -1, "8"
	From   TCREND_GAST T1 , TDREND_GAST T2, TMDOCU_PROV T4, TTDOCU_CNTB T5, TMAUXI_EMPR T8
	Where (( '+@VSCO_EMPR+' IS NOT NULL AND T4.CO_EMPR = '+@VSCO_EMPR+') OR '+@VSCO_EMPR+' IS NULL)
	AND (( '+@VSNU_RUCS+' IS NOT NULL AND T8.NU_RUCS = '+@VSNU_RUCS+') OR '+@VSNU_RUCS+' IS NULL)
	AND T8.TI_AUXI_EMPR = "P" ' +
	@VSTI_FECH + '
	AND T4.CO_EMPR = T8.CO_EMPR
	AND T4.CO_PROV = T8.CO_AUXI_EMPR 	
	AND PatIndex( "%"+T4.CO_TIPO_DOCU+"%", "'+@ISDE_CODI+'" )>0 
	AND T4.CO_ESTA_DOCU != "ANU"
	AND T1.TI_SITU = "ACT"
	AND T1.CO_EMPR = T2.CO_EMPR  
	AND T1.NU_REND_GAST = T2.NU_REND_GAST
	AND T2.CO_EMPR = T4.CO_EMPR
	AND T2.CO_ENTI = T4.CO_PROV
	AND T2.CO_TIPO_DOCU = T4.CO_TIPO_DOCU
	AND T2.NU_DOCU_PROV = T4.NU_DOCU_PROV
	AND T4.CO_ESTA_DOCU != "ANU" 
	AND T4.CO_TIPO_DOCU = T5.TI_DOCU ')
	

END

	IF @ISCO_MONE = @VSCO_MONE_EXTR
  	  BEGIN
		UPDATE 	#TWDOCU_CLPR_Q01_1
		SET	IM_SALD_CONV = IM_SALD_ORIG / 
					(FA_TIPO_CAMB * PATINDEX(@ISST_TICA, '1') + 
					ISNULL(@INTI_CAMB, 0) * PATINDEX(@ISST_TICA, '2'))
		WHERE 	CO_MONE != @ISCO_MONE

		UPDATE 	#TWDOCU_CLPR_Q01_1
		SET	IM_SALD_CONV = IM_SALD_ORIG
		WHERE 	CO_MONE = @ISCO_MONE
  	  END
	ELSE
  	  BEGIN
		UPDATE  #TWDOCU_CLPR_Q01_1
		SET	IM_SALD_CONV = IM_SALD_ORIG * 
					(FA_TIPO_CAMB * PATINDEX(@ISST_TICA, '1') + 
					ISNULL(@INTI_CAMB, 0) * PATINDEX(@ISST_TICA, '2'))
		WHERE CO_MONE != @ISCO_MONE

		UPDATE 	#TWDOCU_CLPR_Q01_1
		SET	IM_SALD_CONV = IM_SALD_ORIG 
		WHERE 	CO_MONE = @ISCO_MONE
	  END


	IF @ISTI_REPO = 'D'
		EXEC ( 	'SELECT	T1.CO_EMPR, MAX(T2.DE_NOMB), T1.TI_ENTI, T1.NU_RUCS, MAX(T1.NO_ENTI), 
				T1.CO_TIPO_DOCU, T1.NU_DOCU_ENTI, MIN(T1.FE_REPO), MAX(T1.CO_MONE_ORIG), 
				SUM(T1.IM_SALD_ORIG), SUM(T1.IM_SALD_CONV)
			FROM 	#TWDOCU_CLPR_Q01_1 T1, TMEMPR T2
			WHERE 	T1.CO_EMPR = T2.CO_EMPR
			GROUP BY T1.CO_EMPR, T1.NU_RUCS, T1.TI_ENTI, T1.CO_TIPO_DOCU, 
				 T1.NU_DOCU_ENTI ' + @VSDE_ORDE )
	ELSE
	   BEGIN
		INSERT INTO #TWDOCU_CLPR_Q01_1 
		(CO_EMPR, TI_ENTI, NU_RUCS, CO_ENTI, NO_ENTI, CO_TIPO_DOCU, NU_DOCU_ENTI, 
		FE_REPO, CO_MONE_ORIG, IM_SALD_ORIG, IM_SALD_CONV, ST_RESU)
		SELECT	T1.CO_EMPR, T1.TI_ENTI, T1.NU_RUCS, T1.CO_ENTI, MAX(T1.NO_ENTI), T1.CO_TIPO_DOCU, T1.NU_DOCU_ENTI, 
			MIN(T1.FE_REPO), MAX(T1.CO_MONE_ORIG), 	SUM(T1.IM_SALD_ORIG), SUM(T1.IM_SALD_CONV), 'S'
		FROM 	#TWDOCU_CLPR_Q01_1 T1, TMEMPR T2
		WHERE 	T1.CO_EMPR = T2.CO_EMPR
		GROUP BY T1.CO_EMPR, T1.NU_RUCS, T1.CO_ENTI, T1.TI_ENTI, T1.CO_TIPO_DOCU, T1.NU_DOCU_ENTI


		EXEC (  'SELECT T1.CO_EMPR, MAX(T2.DE_NOMB), T1.NU_RUCS, MAX(T1.NO_ENTI), 
				SUM(PATINDEX(T1.TI_ENTI, "C") * PATINDEX( "0", RTRIM(LTRIM(STR(PATINDEX(T1.CO_MONE_ORIG, 
"'+@VSCO_MONE_EXTR+'" ))))) * T1.IM_SALD_ORIG) - 
				SUM(PATINDEX(T1.TI_ENTI, "P") * PATINDEX( "0", RTRIM(LTRIM(STR(PATINDEX(T1.CO_MONE_ORIG, 
"'+@VSCO_MONE_EXTR+'" ))))) * T1.IM_SALD_ORIG),
				SUM(PATINDEX(T1.TI_ENTI, "C") * PATINDEX(T1.CO_MONE_ORIG, "'+@VSCO_MONE_EXTR+'" ) * 
T1.IM_SALD_ORIG) -  
				SUM(PATINDEX(T1.TI_ENTI, "P") * PATINDEX(T1.CO_MONE_ORIG, "'+@VSCO_MONE_EXTR+'" ) * 
T1.IM_SALD_ORIG),
				SUM(PATINDEX(T1.TI_ENTI, "C") * T1.IM_SALD_CONV) -  
				SUM(PATINDEX(T1.TI_ENTI, "P") * T1.IM_SALD_CONV)
			FROM 	#TWDOCU_CLPR_Q01_1 T1, TMEMPR T2
			WHERE 	T1.ST_RESU = "S"
			AND	T1.CO_EMPR = T2.CO_EMPR
			GROUP BY T1.CO_EMPR, T1.NU_RUCS ' + @VSDE_ORDE )
	   END

RETURN
/*------------------------- FIN ------------------------------ */


GO
